home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE09 / CLINIC / TESTDLGU.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-03-15  |  600 b   |  35 lines
  1. unit Testdlgu;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, OpenDlgU, StdCtrls;
  8.  
  9. type
  10.   TTestForm = class(TForm)
  11.     Button1: TButton;
  12.     procedure Button1Click(Sender: TObject);
  13.   end;
  14.  
  15. var
  16.   TestForm: TTestForm;
  17.  
  18. implementation
  19.  
  20. {$R *.DFM}
  21.  
  22. procedure TTestForm.Button1Click(Sender: TObject);
  23. begin
  24.   with TOpenDlgFrm.Create(Application) do
  25.     try
  26.       if ShowModal = mrOk then
  27.         MessageDlg('Filename is ' + FileName.Text, mtInformation, [mbOk], 0);
  28.     finally
  29.       Free;
  30.     end;
  31. end;
  32.  
  33. end.
  34.  
  35.